'判断n是否是素数
Function Math_IsPrime(n)
		Math_IsPrime=Not Reg_Test(G_Reg,String(n,"1"),"^1?$|^(11+?)\1+$")
End Function